home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 145 / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan).7z / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan) (Track 1).bin / ikap / grp / font / ts0.bas < prev   
BASIC Source File  |  2000-04-28  |  823b  |  45 lines
  1. int i,j,pl
  2. dim char dat(255)
  3. dim int pd(7,15)
  4.  
  5. screen 0,2,1,1
  6. spfile_def("fnt22b0.sp",0)
  7. apage(1)
  8. for i=0 to 3
  9. for j=0 to 7
  10.     sp_pat(&H00+i*32+j,dat,1)
  11.     put(j*32,i*64,j*32+15,i*64+15,dat)
  12.     sp_pat(&H10+i*32+j,dat,1)
  13.     put(j*32,i*64+16,j*32+15,i*64+31,dat)
  14.  
  15.     sp_pat(&H08+i*32+j,dat,1)
  16.     put(j*32,i*64+32,j*32+15,i*64+47,dat)
  17.     sp_pat(&H18+i*32+j,dat,1)
  18.     put(j*32,i*64+48,j*32+15,i*64+63,dat)
  19. next
  20. next
  21.  
  22. for i=0 to 253
  23. for j=0 to 253
  24.     apage(1)
  25.     pl=point(j,i)
  26.     if pl = 1 then {
  27.         apage(0)
  28.         pset(j+2,i+2,3)
  29.     }
  30. next
  31. next
  32.  
  33. apage(0)
  34. for i=0 to 255
  35. for j=0 to 255
  36.     pl=point(j,i)
  37.     if pl = 3 then {
  38.         if point(j  ,i-1) = 0 then pset(j  ,i-1,1)
  39.         if point(j  ,i+1) = 0 then pset(j  ,i+1,1)
  40.         if point(j-1,i  ) = 0 then pset(j-1,i  ,1)
  41.         if point(j+1,i  ) = 0 then pset(j+1,i  ,1)
  42.     }
  43. next
  44. next
  45.